home *** CD-ROM | disk | FTP | other *** search
/ Sacred & Secular / Sacred and Secular.iso / pc / movies / shared.dir / 05026_Script_5026 < prev    next >
Text File  |  1996-04-03  |  3KB  |  99 lines
  1.  
  2. on ghostrollover spriteno
  3.   global ghostrollno
  4.   
  5.   if spriteno <> ghostrollno then
  6.     set the visible of sprite spriteno to true
  7.     set the visible of sprite ghostrollno to false
  8.     set ghostrollno  to spriteno
  9.   end if
  10. end ghostrollover
  11.  
  12. on checkghostrollover
  13.   global musicon, narron
  14.   if rollover(26) then ghostrollover (43)
  15.   else if the castNum of sprite 28 <> 0 and rollover(28) then ghostrollover (44)
  16.   else if the castNum of sprite 29 <> 0 and rollover(29) then ghostrollover (41)
  17.   else if rollover(30) then ghostrollover (42)
  18.   else if rollover(31) and musicon then ghostrollover (45)
  19.   else if the castNum of sprite 23 <> 0 and rollover(23) and narron then ghostrollover (46)
  20.   else ghostrolloveroff
  21. end checkghostrollover
  22. on checkghost2
  23.   if rollover(26) then ghostrollover (43)
  24.   else if rollover(28) then ghostrollover (44)
  25.   else if rollover(29) then ghostrollover (41)
  26.   else if rollover(30) then ghostrollover (42)
  27.   else if rollover(23) then ghostrollover (46)
  28.   else ghostrolloveroff
  29. end checkghost2
  30. on checkghost3
  31.   global music2on
  32.   if rollover(26) then ghostrollover (43)
  33.   else if rollover(28) then ghostrollover (44)
  34.   else if rollover(29) then ghostrollover (41)
  35.   else if rollover(30) then ghostrollover (42)
  36.   else if rollover(31) and music2on then ghostrollover (45)
  37.   else ghostrolloveroff
  38. end checkghost3
  39.  
  40.  
  41. on ghostrolloveroff
  42.   global ghostrollno
  43.   repeat with i = 41 to 46
  44.     set the visible of sprite i to false
  45.   end repeat
  46.   set ghostrollno = 0
  47. end ghostrolloveroff
  48.  
  49. on planerollover1
  50.   global rplane,rplanemask
  51.   global lplane,lplanemask
  52.   global zoomOut,zoommask
  53.   global zoomin,zoommask
  54.   
  55.   if the mouseV > 440 or the mouseV < 0 or the mouseH > 582 then cursor -1
  56.   else if (the mouseH < the left of sprite 3) and the mouseH > 0 then cursor [lplane,lplanemask]
  57.   else if (the mouseH > the right of sprite 3) and the mouseH < 640 then cursor [rplane,rplanemask]
  58.   else if rollover(3) then cursor [zoomin,zoommask]  
  59.   else cursor -1
  60.   
  61. end planerollover1
  62.  
  63. on planerollover2
  64.   global rplane,rplanemask
  65.   global lplane,lplanemask
  66.   global zoomOut,zoommask
  67.   global zoomin,zoommask
  68.   global gPauseWendy, musicOn, NarrOn
  69.   
  70.   set h = the mouseH
  71.   set v = the mouseV
  72.   
  73.   
  74.   --put h && v into field 6
  75.   
  76.   --
  77.   --
  78.   -- Set the cursor to the watch if less than the WAIT time
  79.   --
  80.   if (the timer < gPauseWendy) and (musicOn or NarrOn) then cursor 4
  81.   else if v < 0 or v > 480 or h < 0 or h > 640 then cursor -1
  82.   else if h < 20 and h > 0 then cursor [lplane,lplanemask]
  83.   else if h > 620 and h < 640 then cursor [rplane,rplanemask]
  84.   else if the shiftDown then cursor [zoomOut,zoommask]
  85.   else cursor [zoomin,zoommask]
  86.   
  87. end planerollover2
  88.  
  89. on PopUpMenu hilitebutton
  90.   global spritevis, popuptoggle
  91.   set spritevis = hilitebutton
  92.   set the visible of sprite 32 to true
  93.   set the visible of sprite 40 to true
  94.   set the visible of sprite hilitebutton to true
  95.   set popuptoggle = 1 
  96. end PopUpMenu
  97.  
  98.  
  99.